<%

	Dim uID, iID, sID, pNumber, isStart
	uID = "" & Request.QueryString("uID")
	iID = "" & Request.QueryString("iID")
	sID = "" & Request.QueryString("sID")
	isStart = Request.QueryString("isStart") = "1"
	pNumber = Request.QueryString("pNumber")

	Dim objCATI
	Set objCATI = Server.CreateObject("oxWebCATICom.CATIStaticProcedures")

	Call objCATI.LogCall(CStr(sID), CStr(iID), CStr(uID), CBool(isStart), CStr(pNumber))

	Set objCATI = Nothing


%>